Scaling temperature values
#extract just temperature variables to scale
tempvars <- grep(pattern = "*_s.t_*",colnames(spp_master_ztemp_seus_buoy), value = T)
spp_master_ztemp_seus_buoy_varsonly <- spp_master_ztemp_seus_buoy[,..tempvars]
#scale all variables, make new columns
spp_master_ztemp_seus_buoy_varsonly[, paste0(tempvars, "_scaled") := lapply(.SD, function(x) as.vector(scale(x))), .SDcols = tempvars]
#names of scaled columns
scaled_cols <- grep("*_scaled", names(spp_master_ztemp_seus_buoy_varsonly), value = T)
#merge new columns back with spp_master_ztemp_seus_buoy
spp_master_ztemp_seus_buoy_scaled <- cbind(spp_master_ztemp_seus_buoy, spp_master_ztemp_seus_buoy_varsonly[,scaled_cols, with = FALSE])
saveRDS(spp_master_ztemp_seus_buoy_scaled, file = here("Data","Spp_master", "spp_master_ztemp_seus_buoy_scaled.rds"))
LS0tCnRpdGxlOiAiU2NhbGluZyBUZW1wZXJhdHVyZSIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3Igc2V0dXB9CmxpYnJhcnkoZGF0YS50YWJsZSkKbGlicmFyeShoZXJlKQoKc3BwX21hc3Rlcl96dGVtcF9zZXVzX2J1b3kgPC0gcmVhZFJEUyhoZXJlOjpoZXJlKCJEYXRhIiwiU3BwX21hc3RlciIsICJzcHBfbWFzdGVyX3p0ZW1wX3NldXNfYnVveS5yZHMiKSkKYGBgCgpTY2FsaW5nIHRlbXBlcmF0dXJlIHZhbHVlcwpgYGB7ciBzY2FsaW5nIHRlbXBlcmF0dXJlfQoKI2V4dHJhY3QganVzdCB0ZW1wZXJhdHVyZSB2YXJpYWJsZXMgdG8gc2NhbGUKdGVtcHZhcnMgPC0gZ3JlcChwYXR0ZXJuID0gIipfcy50XyoiLGNvbG5hbWVzKHNwcF9tYXN0ZXJfenRlbXBfc2V1c19idW95KSwgdmFsdWUgPSBUKQpzcHBfbWFzdGVyX3p0ZW1wX3NldXNfYnVveV92YXJzb25seSA8LSBzcHBfbWFzdGVyX3p0ZW1wX3NldXNfYnVveVssLi50ZW1wdmFyc10KCiNzY2FsZSBhbGwgdmFyaWFibGVzLCBtYWtlIG5ldyBjb2x1bW5zCnNwcF9tYXN0ZXJfenRlbXBfc2V1c19idW95X3ZhcnNvbmx5WywgcGFzdGUwKHRlbXB2YXJzLCAiX3NjYWxlZCIpIDo9IGxhcHBseSguU0QsIGZ1bmN0aW9uKHgpIGFzLnZlY3RvcihzY2FsZSh4KSkpLCAuU0Rjb2xzID0gdGVtcHZhcnNdCgoKI25hbWVzIG9mIHNjYWxlZCBjb2x1bW5zCnNjYWxlZF9jb2xzIDwtIGdyZXAoIipfc2NhbGVkIiwgbmFtZXMoc3BwX21hc3Rlcl96dGVtcF9zZXVzX2J1b3lfdmFyc29ubHkpLCB2YWx1ZSA9IFQpCgojbWVyZ2UgbmV3IGNvbHVtbnMgYmFjayB3aXRoIHNwcF9tYXN0ZXJfenRlbXBfc2V1c19idW95CnNwcF9tYXN0ZXJfenRlbXBfc2V1c19idW95X3NjYWxlZCA8LSBjYmluZChzcHBfbWFzdGVyX3p0ZW1wX3NldXNfYnVveSwgc3BwX21hc3Rlcl96dGVtcF9zZXVzX2J1b3lfdmFyc29ubHlbLHNjYWxlZF9jb2xzLCB3aXRoID0gRkFMU0VdKQoKc2F2ZVJEUyhzcHBfbWFzdGVyX3p0ZW1wX3NldXNfYnVveV9zY2FsZWQsIGZpbGUgPSBoZXJlKCJEYXRhIiwiU3BwX21hc3RlciIsICJzcHBfbWFzdGVyX3p0ZW1wX3NldXNfYnVveV9zY2FsZWQucmRzIikpCmBgYAo=